home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / KAM401.ZIP / KAM-CLR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-26  |  1KB  |  80 lines
  1. procedure full_window;
  2. begin
  3.   window(1,1,80,25);
  4. end;
  5.  
  6. procedure transmit_color;
  7. begin
  8.   textcolor(f_clr[0]);
  9.   textbackground(b_clr[0]);
  10. end;
  11.  
  12. procedure receive_color;
  13. begin
  14.   textcolor(f_clr[1]);
  15.   textbackground(b_clr[1]);
  16. end;
  17.  
  18. procedure status_color;
  19. begin
  20.   textcolor(f_clr[2]);
  21.   textbackground(b_clr[2]);
  22. end;
  23.  
  24. procedure prompt_color;
  25. begin
  26.   textcolor(f_clr[3]);
  27.   textbackground(b_clr[3]);
  28. end;
  29.  
  30. procedure aux_color;
  31. begin
  32.   textcolor(f_clr[4]);
  33.   textbackground(b_clr[4]);
  34. end;
  35.  
  36. procedure help_color;
  37. begin
  38.   textcolor(f_clr[5]);
  39.   textbackground(b_clr[5]);
  40. end;
  41.  
  42. procedure check_video;
  43. var regs : registers;
  44. begin
  45.   regs.AX := $0F00;
  46.   Intr($10, regs);
  47.   case regs.AL of
  48.     2,3 : video := Addr(color_screen);
  49.       7 : video := Addr(mono_screen);
  50.   end;
  51. end;
  52.  
  53. procedure save_screen;
  54. begin
  55.   FillPage(@Image);
  56. end;
  57.  
  58. procedure restore_screen;
  59. begin
  60.   DisplayPage(@Image);
  61.   receive_color;
  62.   window(1,1,80,25);
  63.   gotoxy(xin,yin);
  64. end;
  65.  
  66. procedure save_entry_screen;
  67. begin
  68.   curs_x := whereX;
  69.   curs_y := whereY;
  70.   FillPage(@Screen1);
  71. end;
  72.  
  73. procedure restore_entry_screen;
  74. begin
  75.   DisplayPage(@Screen1);
  76.   window(1,1,80,25);
  77.   gotoxy(curs_x,curs_y);
  78. end;
  79.  
  80.